home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amosprog.lha / UnPackerProc-Pro.AMOS / UnPackerProc-Pro.amosSourceCode
AMOS Source Code  |  1995-10-02  |  684b  |  41 lines
  1. ' dekompress abk bank!!! 
  2. ' (c) Marcin Szumiela 1994 
  3.  
  4. POWERPLIK$=Fsel$('','','Open Compressed Abk Bank')
  5.  
  6. UNSQ[POWERPLIK$,4,10]
  7.  
  8. Procedure UNSQ[POWERPLIK$,EFFECT,BANK]
  9.  
  10. Open In 1,POWERPLIK$
  11. Reserve As Work BANK,Lof(1)
  12. Bload POWERPLIK$,Start(BANK)
  13. Close 1
  14.  
  15. Poke$ Start(BANK),'PP20'
  16. POWERPLIK$='ram:art4'
  17. Bsave POWERPLIK$,Start(BANK) To Start(BANK)+Length(BANK)
  18.  
  19. Erase BANK
  20.  
  21. Lib Open 1,'powerpacker.library',0
  22.  
  23. Areg(0)=Varptr(POWERPLIK$)
  24. Areg(1)=Varptr(ADRES)
  25. Areg(2)=Varptr(DLUGOSC)
  26. Areg(3)=0
  27. Dreg(0)=EFFECT
  28. Dreg(1)=0
  29. A=Lib Call(1,-$1E)
  30. Lib Close 1
  31.  
  32. Bsave 'ram:art4',ADRES To ADRES+DLUGOSC
  33.  
  34. Areg(1)=ADRES
  35. Dreg(0)=DLUGOSC
  36. A=Execall(-$D2)
  37.  
  38. Load 'ram:art4',BANK
  39. Kill 'ram:art4'
  40.  
  41. End Proc